home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)ta.d64
/
battle hymn 1.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
44 lines
0 REM****BATTLE HYMN OF THE REPUBLIC****
1 REM******BY: NICHOLAS ASHWORTH*******
2 REM*********V.1 (TWO VIOLINS)*********
5 RESTORE
10 POKE54296,15:POKE54277,95:POKE54278,20
11 POKE54284,95:POKE54285,23
12 POKE54275,255:POKE54274,15:POKE54282,255:POKE54281,15
20 READA:IFA=-1THEN5
30 READB
35 READC
36 READD
37 READE
58 POKE54273,A:POKE54272,B:POKE54276,65
59 POKE54280,C:POKE54279,D:POKE54283,65
80 FORT=1TOE:NEXT:POKE54276,64:POKE54283,64
85 FORT=1TO50:NEXT
90 GOTO20
101 DATA0,0,0,0,500
102 DATA22,96,18,209,125,22,96,18,209,189,22,96,18,209,64
103 DATA22,96,18,209,189,19,239,16,195,64,18,209,14,239,189,22,96,18,209,64
104 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,189,37,162,22,96,64
105 DATA37,162,22,96,189,33,135,19,239,64,29,223,18,209,250,0,0,0,0,250
106 DATA29,223,22,96,64,29,223,22,96,64,25,30,19,239,189,25,30,19,239,64
107 DATA25,30,19,239,189,28,49,22,96,64,29,223,25,30,189,29,223,25,30,64
108 DATA29,223,25,30,189,25,30,19,239,64,22,96,18,209,189,25,30,19,239,64
109 DATA22,96,18,209,189,18,209,14,239,64,22,96,18,209,250,0,0,0,0,250
110 DATA22,96,18,209,64,22,96,18,209,64,22,96,18,209,189
111 DATA22,96,18,209,64,22,96,18,209,189,19,239,16,195,64
112 DATA18,209,14,239,189,22,96,18,209,64
113 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,189,37,162,22,96,64
114 DATA37,162,22,96,189,33,135,19,239,64,29,223,18,209,250,0,0,0,0,250
115 DATA29,223,22,96,125,33,135,25,30,250,33,135,25,30,250
116 DATA29,223,22,96,250,28,49,19,239,250,29,223,18,209,500,0,0,0,0,500
117 DATA22,96,18,209,375,19,239,16,195,125,18,209,14,239,189,22,96,18,209,64
118 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,500,29,223,22,96,250
119 DATA0,0,0,0,250,25,30,19,239,375,28,49,22,96,64
120 DATA29,223,25,30,189,28,49,22,96,64,29,223,25,30,189
121 DATA25,30,19,239,64,22,96,18,209,500,18,209,14,239,250,0,0,0,0,250
122 DATA22,96,18,209,375,19,239,16,195,125,18,209,14,239,189,22,96,18,209,64
123 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,500,29,223,22,96,250
124 DATA0,0,0,0,250,29,223,22,96,125,33,135,25,30,250,33,135,25,30,250
125 DATA29,223,22,96,250,28,49,19,239,250,29,223,18,209,500,0,0,0,0,500
9000 DATA-1,-1